structure TestProg = struct

structure S = SLP
	      
(* This statement constructs AST of the following program 
 * and gives it to the variable 'prog'
 *     a = 5+3; b = (print(a,a-1), 10*a); print(b)	 
 *)
val prog = 
    S.CompoundStm
        [S.AssignStm ("a", S.OpExp (S.NumExp 5, 
                                    S.Plus, 
                                    S.NumExp 3)),
	 S.AssignStm
	     ("b",
	      S.EseqExp
		  (S.PrintStm
		       [S.IdExp "a",
			S.OpExp (S.IdExp "a", 
                                 S.Minus, 
                                 S.NumExp 1)],
		   S.OpExp (S.NumExp 10, 
                            S.Times, 
                            S.IdExp "a"))),
	 S.PrintStm [S.IdExp "b"]]
end
